home *** CD-ROM | disk | FTP | other *** search
/ dub Media Cool Graphics / Dub Media - Cool Graphics.iso / democd.ss < prev    next >
Text File  |  1997-04-05  |  40KB  |  1,220 lines
  1. #=================================================================#
  2. # Smacker Script Code for Maneuvering Through dub Media's Demo CD #
  3. # copyright 1997 dub Media Inc.                                   #
  4. #=================================================================#
  5.  
  6. ScreenWindowAutoPause 1
  7. SystemDisplayResolution 3
  8. ScreenGraphics scrn, 800, 600
  9. If scrn=0 Goto "Finisherror"
  10.  
  11. BitmapAlloc palette, 0, 0
  12. BitmapSetPaletteValue palette, 0, 0
  13. BitmapAlloc nomouse, 0, 0
  14. AnimationLoadToBitmap "cursors\sounds", soundcursor
  15. AnimationLoadToBitmap "cursors\c_about", AboutUscursor
  16. AnimationLoadToBitmap "cursors\c_sand", SBcursor
  17. AnimationLoadToBitmap "cursors\c_pie", imagecursor
  18. AnimationLoadToBitmap "cursors\c_chick", dubVRcursor
  19. AnimationLoadToBitmap "cursors\c_pizza", animcursor
  20. AnimationLoadToBitmap "cursors\c_mayo", SCARABcursor
  21. AnimationLoadToBitmap "cursors\arrow", backcursor
  22. AnimationLoadToBitmap "cursors\openfrz", openfreezer
  23. AnimationLoadToBitmap "cursors\closefrz", closefreezer
  24. AnimationLoadToBitmap "cursors\openveg", openveggies
  25. AnimationLoadToBitmap "cursors\closeveg", closeveggies
  26.  
  27. AnimationLoadToBitmap "cursors\fastleft", fastleft
  28. AnimationLoadToBitmap "cursors\fastrite", fastrite
  29. AnimationLoadToBitmap "cursors\panarrow", panarrow
  30. AnimationLoadToBitmap "cursors\panleft", panleft
  31. AnimationLoadToBitmap "cursors\panright", panright
  32.  
  33. AnimationLoadToBitmap "cursors\hand", handcursor
  34. AnimationLoadToBitmap "cursors\stills", stillcursor
  35. AnimationLoadToBitmap "cursors\panorama", pancursor
  36. AnimationLoadToBitmap "cursors\demo", democursor
  37. AnimationLoadToBitmap "cursors\slides", slideshowcursor
  38. AnimationLoadToBitmap "cursors\filmreel", filmcursor
  39.  
  40. AnimationLoadToBitmap "cursors\pageleft", pageleft
  41. AnimationLoadToBitmap "cursors\pagerite", pagerite
  42.  
  43. # get the generic names in the variable table
  44. VarSet imagelist, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
  45. VarSet imagename, "12345678"
  46. VarSet imagecount, 0
  47. VarSet imagepiece, 0
  48. VarSet imageindex, 0
  49. Varset imagestep, 1
  50.  
  51. #Kitchen Sounds Variable Set
  52. VarSet sounds,      "milk    soda    jam     mayo    wcream  dressingpickle  blender cocoa   ice     tvdinnericecreamonion   tomato  carrot  "
  53. #Space Bar Still Images Variable Set
  54. VarSet thudstill,   "thud    fleeb   parker  barman  chamber minecartbarks   lilypad moth    gordo   winky   vedj    tunk    dock    zzazzl  "
  55. #Space Bar Panoramas Variable Set
  56. VarSet thudpan,     "adp     bbp     bdp     bjp     brp     ddp     dhp     kap     nhp     sdp     tbp     tcp     vap     zep     "
  57. #Images Stills Variable Set
  58. VarSet still,       "study   diner   fnlx    guitars mockup2 eandr   eand0127eandr2  eand0137eandr3  eandr1  eand0060eandr4  kitch   kiva    qlips   smokerm1smokerm2smokerm3veranda1veranda2veranda3"
  59. #Images Panoramas Variable Set
  60. VarSet piepan,      "smokerm verandah"
  61. #Scarab Still Images Variable Set
  62. VarSet scarabstill, "anubis  anushoothorus   horusgodpyramid sekhmet missionsallthreelose    "
  63. #Scarab Screen Shots Variable Set
  64. VarSet scarabshot,  "screen1 screen2 screen3 screen4 action1 action3 action4 action6 action7 action8 action9 action13action15action16action17action19action24action11"
  65. #Scarab City Shots Variable Set
  66. VarSet scarabcity,  "aswan   cairo   giza    helwan  karnak  luxor   memphis "
  67. #Animations Variable Set
  68. VarSet movies,      "sb_introsc_introanubis  sekhmet horus   entthud kitchen plane   joiner  thudjumpmuseum  admonishmarmkillrepair  sneeze  stepover"
  69. #dubVR Demos Variable Set
  70. VarSet dubdemos,    "barvr   gardenvrcutevr  titanvr droidvr thudvr  eggvr   "
  71. VarSet soundcount, 15
  72. VarSet thudpancount, 14
  73. VarSet pancount, 2
  74. VarSet moviecount, 16
  75. VarSet democount, 7
  76. VarSet SlideNum, 0
  77. VarSet ddraw, 0
  78. VarSet dsound, 0
  79.  
  80. TextTransColor 0
  81. TextBackColor 0
  82. TextColor 25
  83.  
  84. AnimationPlay scrn, -1, -1, 1, 128, "dublogo"
  85. Gosub "Keyburn"
  86.  
  87. #===============================================================#
  88. # Do the DirectX III installation thingy...                     #
  89. #===============================================================#
  90. EnvGet ddpath, "windir"
  91. FileExists ddraw,  "%ddpath%\system\ddraw.dll"
  92. FileExists dsound, "%ddpath%\system\dsound.dll"
  93. If ddraw=1 If dsound=1 Goto "ddrawOK"
  94. Gosub "Screen8x6"
  95. AnimationPlay scrn, 0, 0, 1, 0, "screens\fridge"
  96. InputMsgWin scrn, -1, -1, 12, "DirectX III is required for several of the demos.  Would you like to install it now?"
  97. If scrn=8 Goto "Welcome"
  98. InputMsgWin ddex, -1, -1, 1, "The DirectX III installation may need to reboot your machine.  If this happens, you can simply reinsert the CD afterwards to restart the demo."
  99. DirChange ddex, "DirectX"
  100. Execute ddex, "dxsetup.exe"
  101. DirChange scrn, "..\"
  102. Goto "Welcome"
  103.  
  104. :ddrawOK
  105. Gosub "Keyburn"
  106. MCISendString scrn, "close music"
  107. MCISendString scrn, "open kitchvr\A1526SM.WAV alias music"
  108. MCISendString scrn, "play music"
  109. Delay 1000
  110. SystemDisplayResolution 0
  111. DirChange ddex, "kitchvr"
  112. Execute ddex, "kitchvr.exe"
  113. DirChange ddex, "..\"
  114. Gosub "Screen8x6"
  115. MCISendString scrn, "close music"
  116. BitmapSetPalette palette
  117. AnimationPlay scrn, 0, 0, 1, 1040, "audio\dooropen"
  118. AnimationPlay scrn, 0, 0, 1, 0, "screens\fridge"
  119.  
  120. :Welcome
  121. Gosub "Keyburn"
  122. InputMsgWin scrn, -1 -1, 1, "Welcome to dub Media's demo CD!  This demo will NOT write anything on your hard drive, but it WILL change graphic modes as it runs.  Let's go... everything's inside the fridge..."
  123. SystemColors ddex
  124. If ddex < 16000 InputMsgWin scrn, -1 -1, 1, "We recommend that you exit the demo, and set your screen to 16-bit hi-color mode.  Some of the demos will look better in hi-color."
  125. Goto "FridgeWait"
  126.  
  127. #============================================================#
  128. #This RefreshFridge section takes you back to the close-up of#
  129. #the fridge with its hot spot selection areas.               #
  130. #============================================================#
  131. :RefreshFridge
  132. Gosub "Keyburn"
  133. ScreenClear 0
  134. BitmapSetPalette palette
  135. AnimationPlay audio, 0, 0, 1, 1040, "audio\dooropen"
  136. AnimationPlay scrn, 0, 0, 1, 0, "screens\fridge"
  137. :FridgeWait
  138. MouseRemoveAll
  139. MouseAdd "whole",       0,   0, 800, 600, 0
  140. MouseAdd "freezer",    86,  15, 271, 106, openfreezer
  141. MouseAdd "veggie",    252, 406,  62,  45, openveggies
  142. MouseAdd "milk",      407, 379,  72,  80, soundcursor
  143. MouseAdd "soda",      492, 424, 115, 127, soundcursor
  144. MouseAdd "jam",       421, 296,  61,  61, soundcursor
  145. MouseAdd "ketchup",   387, 166,  89, 109, AboutUscursor
  146. MouseAdd "about",     380,   0, 300, 166, AboutUscursor
  147. MouseAdd "whipcream", 491, 184,  38, 110, soundcursor
  148. MouseAdd "dressing",  536, 177,  55, 141, soundcursor
  149. MouseAdd "pickles",   598, 240,  63,  95, soundcursor
  150. MouseAdd "blender",     0, 166,  58, 144, soundcursor
  151. MouseAdd "cocoa",      29, 316,  55,  45, soundcursor
  152. MouseAdd "jello",     100, 200, 110, 154, SCARABcursor
  153. MouseAdd "sandwich",  230, 186, 114,  60, SBcursor
  154. MouseAdd "pie",       251, 328,  95,  50, imagecursor
  155. MouseAdd "chicken",   135, 355, 110,  64, dubVRcursor
  156. MouseAdd "pizza",     250, 260,  90,  60, animcursor
  157. MouseAdd "mayo",      492, 325, 117,  84, soundcursor
  158. MouseAdd "backout",   266, 500, 202, 100, backcursor
  159.  
  160. :LoopFridge
  161. Gosub "Keyburn"
  162. VarSet soundcurrent, -1
  163. InputChar key
  164. If key="whole" Goto "LoopFridge"
  165. If key="freezer" Goto "OpenFreezer"
  166. If key="veggie" Goto "OpenVeggie"
  167. If key="jello" Goto "SoundJello"
  168. If key="milk" VarSet soundcurrent, 0
  169. If key="soda" VarSet soundcurrent, 1
  170. If key="jam" VarSet soundcurrent, 2
  171. If key="mayo" VarSet soundcurrent, 3
  172. If key="whipcream" VarSet soundcurrent, 4
  173. If key="dressing" VarSet soundcurrent, 5
  174. If key="pickles" VarSet soundcurrent, 6
  175. If key="blender" VarSet soundcurrent, 7
  176. If key="cocoa" VarSet soundcurrent, 8
  177. If key="ice" VarSet soundcurrent, 9
  178. If key="tvdinner" VarSet soundcurrent, 10
  179. If key="icecream" VarSet soundcurrent, 11
  180. If key="onion" VarSet soundcurrent, 12
  181. If key="tomato" VarSet soundcurrent, 13
  182. If key="carrot"